/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_04 / pendulum

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 24 | 2e 50 65 6e 64 75 6c 75 |..... >$|.Pendulu|
|00000010| 6d 0d 00 14 1c f4 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |m..... *|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 00 1e |********|*****...|
|00000030| 1c f4 20 2a 20 20 20 20 | 20 20 50 45 4e 44 55 4c |.. *    |  PENDUL|
|00000040| 55 4d 20 20 20 20 20 20 | 2a 0d 00 28 1c f4 20 2a |UM      |*..(.. *|
|00000050| 20 41 64 72 69 61 6e 20 | 50 68 69 6c 69 70 20 4c | Adrian |Philip L|
|00000060| 6f 6f 6b 20 2a 0d 00 32 | 1c f4 20 2a 20 31 32 74 |ook *..2|.. * 12t|
|00000070| 68 20 4e 6f 76 65 6d 62 | 65 72 20 31 39 38 37 20 |h Novemb|er 1987 |
|00000080| 2a 0d 00 3c 1c f4 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*..<.. *|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 00 46 |********|*****..F|
|000000a0| 04 0d 00 50 20 ee 20 85 | 20 eb 31 32 3a f1 20 f6 |...P . .| .12:. .|
|000000b0| 24 3b 22 20 61 74 20 6c | 69 6e 65 20 22 3b 9e 3a |$;" at l|ine ";.:|
|000000c0| e0 0d 00 5a 07 eb 31 32 | 0d 00 64 0b 6d 75 6c 74 |...Z..12|..d.mult|
|000000d0| 3d 2d 31 0d 00 6e 17 c8 | 95 20 6d 75 6c 74 3c 31 |=-1..n..|. mult<1|
|000000e0| 20 84 20 6d 75 6c 74 3e | 34 32 0d 00 78 07 ef 31 | . mult>|42..x..1|
|000000f0| 32 0d 00 82 1d e8 22 52 | 65 73 6f 6c 75 74 69 6f |2....."R|esolutio|
|00000100| 6e 20 28 31 2d 34 32 29 | 3a 22 6d 75 6c 74 0d 00 |n (1-42)|:"mult..|
|00000110| 8c 05 ce 0d 00 96 11 73 | 69 7a 65 3d 6d 75 6c 74 |.......s|ize=mult|
|00000120| 2a 33 36 30 0d 00 a0 05 | 87 0d 00 aa 0f f2 69 6e |*360....|......in|
|00000130| 69 74 69 61 6c 69 73 65 | 0d 00 b4 05 db 0d 00 be |itialise|........|
|00000140| 0b f2 73 63 72 65 65 6e | 0d 00 c8 0c f2 64 69 73 |..screen|.....dis|
|00000150| 70 6c 61 79 0d 00 d2 0c | f2 61 6e 69 6d 61 74 65 |play....|.animate|
|00000160| 0d 00 dc 0e 2a 50 4f 49 | 4e 54 45 52 20 30 0d 00 |....*POI|NTER 0..|
|00000170| e6 19 ef 20 32 34 2c 33 | 31 30 3b 30 3b 31 32 37 |... 24,3|10;0;127|
|00000180| 39 3b 31 30 32 33 3b 0d | 00 f0 05 da 0d 00 fa 04 |9;1023;.|........|
|00000190| 0d 01 04 10 ee 20 85 20 | ea 20 f2 65 72 72 6f 72 |..... . |. .error|
|000001a0| 0d 01 0e 09 65 6e 64 3d | a3 0d 01 18 05 f5 0d 01 |....end=|........|
|000001b0| 22 09 f2 64 72 61 77 0d | 01 2c 0c f2 64 69 73 70 |"..draw.|.,..disp|
|000001c0| 6c 61 79 0d 01 36 0a f2 | 69 6e 70 75 74 0d 01 40 |lay..6..|input..@|
|000001d0| 09 fd 20 65 6e 64 0d 01 | 4a 04 0d 01 54 0a 2a 46 |.. end..|J...T.*F|
|000001e0| 58 20 31 35 0d 01 5e 07 | ef 32 30 0d 01 68 05 db |X 15..^.|.20..h..|
|000001f0| 0d 01 72 05 ee 0d 01 7c | 05 e0 0d 01 86 05 20 0d |..r....||...... .|
|00000200| 01 90 0b dd f2 65 72 72 | 6f 72 0d 01 9a 0b 65 72 |.....err|or....er|
|00000210| 72 6f 72 3d b9 0d 01 a4 | 0e fb 20 31 35 3a fb 20 |ror=....|.. 15:. |
|00000220| 31 32 38 0d 01 ae 19 e7 | 20 9f 3c 3e 31 37 20 8c |128.....| .<>17 .|
|00000230| 20 f1 8a 33 30 2c 31 35 | 29 3b f6 24 0d 01 b8 05 | ..30,15|);.$....|
|00000240| e1 0d 01 c2 04 0d 01 cc | 10 dd f2 69 6e 69 74 69 |........|...initi|
|00000250| 61 6c 69 73 65 0d 01 d6 | 0d de 69 6e 70 75 74 28 |alise...|..input(|
|00000260| 36 29 0d 01 e0 0f de 20 | 73 69 6e 28 73 69 7a 65 |6)..... |sin(size|
|00000270| 29 0d 01 ea 2f f1 22 50 | 6c 65 61 73 65 20 77 61 |).../."P|lease wa|
|00000280| 69 74 20 28 75 6e 74 69 | 6c 20 22 3b 73 69 7a 65 |it (unti|l ";size|
|00000290| 3b 22 29 20 43 41 4c 43 | 55 4c 41 54 49 4e 47 22 |;") CALC|ULATING"|
|000002a0| 0d 01 f4 14 e3 20 61 6e | 67 6c 65 3d 30 20 b8 20 |..... an|gle=0 . |
|000002b0| 73 69 7a 65 0d 01 fe 1f | 73 69 6e 28 61 6e 67 6c |size....|sin(angl|
|000002c0| 65 29 3d b5 28 b2 28 61 | 6e 67 6c 65 2f 6d 75 6c |e)=.(.(a|ngle/mul|
|000002d0| 74 29 29 0d 02 08 10 f1 | 8a 30 2c 32 29 3b 61 6e |t)).....|.0,2);an|
|000002e0| 67 6c 65 0d 02 12 0b ed | 20 61 6e 67 6c 65 0d 02 |gle.....| angle..|
|000002f0| 1c 04 0d 02 26 15 61 6d | 70 41 3d 32 30 30 3a 61 |....&.am|pA=200:a|
|00000300| 6d 70 42 3d 31 30 30 0d | 02 30 13 66 72 65 71 41 |mpB=100.|.0.freqA|
|00000310| 3d 32 3a 66 72 65 71 42 | 3d 33 0d 02 3a 16 63 69 |=2:freqB|=3..:.ci|
|00000320| 72 63 6c 65 3d 38 35 3a | 72 6f 74 61 74 65 3d 35 |rcle=85:|rotate=5|
|00000330| 0d 02 44 0c 73 74 65 70 | 3d 32 37 30 0d 02 4e 15 |..D.step|=270..N.|
|00000340| 6d 69 64 78 3d 37 39 35 | 3a 6d 69 64 79 3d 35 31 |midx=795|:midy=51|
|00000350| 32 0d 02 58 0c 63 6f 6c | 6f 75 72 3d 31 0d 02 62 |2..X.col|our=1..b|
|00000360| 0c 72 61 6e 67 65 3d 31 | 36 0d 02 6c 11 c8 95 20 |.range=1|6..l... |
|00000370| 63 6f 6c 6f 75 72 3c 3e | 31 35 0d 02 76 1e fb 20 |colour<>|15..v.. |
|00000380| 63 6f 6c 6f 75 72 2c 32 | 34 30 2c 72 61 6e 67 65 |colour,2|40,range|
|00000390| 2c 72 61 6e 67 65 2f 38 | 0d 02 80 0d 63 6f 6c 6f |,range/8|....colo|
|000003a0| 75 72 2b 3d 31 0d 02 8a | 0d 72 61 6e 67 65 2b 3d |ur+=1...|.range+=|
|000003b0| 31 36 0d 02 94 05 ce 0d | 02 9e 14 fb 20 31 35 2c |16......|.... 15,|
|000003c0| 32 35 35 2c 32 35 35 2c | 32 35 35 0d 02 a8 13 73 |255,255,|255....s|
|000003d0| 6e 61 6b 65 3d 38 3a 73 | 64 69 72 3d 2d 31 0d 02 |nake=8:s|dir=-1..|
|000003e0| b2 15 74 69 74 6c 65 24 | 3d 22 50 45 4e 44 55 4c |..title$|="PENDUL|
|000003f0| 55 4d 22 0d 02 bc 0b 65 | 72 72 6f 72 3d a3 0d 02 |UM"....e|rror=...|
|00000400| c6 05 e1 0d 02 d0 05 20 | 0d 02 da 0c dd f2 73 63 |....... |......sc|
|00000410| 72 65 65 6e 0d 02 e4 07 | fb 31 35 0d 02 ee 17 f1 |reen....|.15.....|
|00000420| 8a 34 2c 32 36 29 22 57 | 72 69 74 74 65 6e 20 62 |.4,26)"W|ritten b|
|00000430| 79 22 0d 02 f8 1f f1 8a | 30 2c 32 37 29 22 41 64 |y"......|0,27)"Ad|
|00000440| 72 69 61 6e 20 50 68 69 | 6c 69 70 20 4c 6f 6f 6b |rian Phi|lip Look|
|00000450| 22 0d 03 02 10 f1 8a 37 | 2c 32 38 29 22 66 6f 72 |"......7|,28)"for|
|00000460| 22 0d 03 0c 14 f1 8a 35 | 2c 32 39 29 22 41 72 63 |"......5|,29)"Arc|
|00000470| 68 69 76 65 22 0d 03 16 | 09 fb 20 31 34 33 0d 03 |hive"...|.. 143..|
|00000480| 20 12 ef 32 38 2c 30 2c | 32 33 2c 31 38 2c 31 30 | ..28,0,|23,18,10|
|00000490| 0d 03 2a 05 db 0d 03 34 | 12 78 30 3d 31 32 3a 73 |..*....4|.x0=12:s|
|000004a0| 78 3d 31 37 2a 31 36 0d | 03 3e 1c 79 30 3d 31 30 |x=17*16.|.>.y0=10|
|000004b0| 33 36 2d 32 34 2a 33 32 | 3a 73 79 3d 31 33 2a 33 |36-24*32|:sy=13*3|
|000004c0| 32 2b 34 0d 03 48 08 e6 | 30 2c 30 0d 03 52 14 c8 |2+4..H..|0,0..R..|
|000004d0| 93 20 c8 90 20 78 30 2c | 79 30 2c 38 2c 73 79 0d |. .. x0,|y0,8,sy.|
|000004e0| 03 5c 19 c8 93 20 c8 90 | 20 78 30 2c 79 30 2b 73 |.\... ..| x0,y0+s|
|000004f0| 79 2d 34 2c 73 78 2c 34 | 0d 03 66 17 c8 93 20 c8 |y-4,sx,4|..f... .|
|00000500| 90 20 78 30 2b 73 78 2c | 79 30 2c 38 2c 73 79 0d |. x0+sx,|y0,8,sy.|
|00000510| 03 70 14 c8 93 20 c8 90 | 20 78 30 2c 79 30 2c 73 |.p... ..| x0,y0,s|
|00000520| 78 2c 34 0d 03 7a 19 c8 | 93 20 c8 90 20 78 30 2c |x,4..z..|. .. x0,|
|00000530| 79 30 2b 32 2a 33 32 2c | 73 78 2c 34 0d 03 84 19 |y0+2*32,|sx,4....|
|00000540| c8 93 20 c8 90 20 78 30 | 2c 79 30 2b 34 2a 33 32 |.. .. x0|,y0+4*32|
|00000550| 2c 73 78 2c 34 0d 03 8e | 19 c8 93 20 c8 90 20 78 |,sx,4...|... .. x|
|00000560| 30 2c 79 30 2b 37 2a 33 | 32 2c 73 78 2c 34 0d 03 |0,y0+7*3|2,sx,4..|
|00000570| 98 1a c8 93 20 c8 90 20 | 78 30 2c 79 30 2b 31 30 |.... .. |x0,y0+10|
|00000580| 2a 33 32 2c 73 78 2c 34 | 0d 03 a2 05 e1 0d 03 ac |*32,sx,4|........|
|00000590| 04 0d 03 b6 0d dd f2 61 | 6e 69 6d 61 74 65 0d 03 |.......a|nimate..|
|000005a0| c0 08 fb 31 32 38 0d 03 | ca 19 e3 20 64 75 6d 6d |...128..|... dumm|
|000005b0| 79 3d 31 20 b8 20 a9 28 | 74 69 74 6c 65 24 29 0d |y=1 . .(|title$).|
|000005c0| 03 d4 0e fb 20 31 35 2d | 64 75 6d 6d 79 0d 03 de |.... 15-|dummy...|
|000005d0| 1d 68 65 69 67 68 74 3d | 28 64 75 6d 6d 79 2d 34 |.height=|(dummy-4|
|000005e0| 29 2a b4 28 73 6e 61 6b | 65 29 0d 03 e8 38 e7 20 |)*.(snak|e)...8. |
|000005f0| 94 28 68 65 69 67 68 74 | 29 3e 94 28 73 6e 61 6b |.(height|)>.(snak|
|00000600| 65 2f 32 29 20 8c 20 68 | 65 69 67 68 74 3d 94 28 |e/2) . h|eight=.(|
|00000610| 73 6e 61 6b 65 2f 32 29 | 2a b4 28 68 65 69 67 68 |snake/2)|*.(heigh|
|00000620| 74 29 0d 03 f2 30 f1 8a | 68 65 69 67 68 74 2a 32 |t)...0..|height*2|
|00000630| 2b 38 2c 64 75 6d 6d 79 | 29 3b 22 20 22 3b c1 74 |+8,dummy|);" ";.t|
|00000640| 69 74 6c 65 24 2c 64 75 | 6d 6d 79 2c 31 29 3b 22 |itle$,du|mmy,1);"|
|00000650| 20 22 0d 03 fc 05 ed 0d | 04 06 0f 73 6e 61 6b 65 | "......|...snake|
|00000660| 2b 3d 73 64 69 72 0d 04 | 10 31 e7 20 73 6e 61 6b |+=sdir..|.1. snak|
|00000670| 65 3d 39 20 84 20 73 6e | 61 6b 65 3d 2d 39 20 8c |e=9 . sn|ake=-9 .|
|00000680| 20 73 6e 61 6b 65 2d 3d | 73 64 69 72 3a 73 64 69 | snake-=|sdir:sdi|
|00000690| 72 3d 2d 73 64 69 72 0d | 04 1a 05 e1 0d 04 24 04 |r=-sdir.|......$.|
|000006a0| 0d 04 2e 0d dd f2 64 69 | 73 70 6c 61 79 0d 04 38 |......di|splay..8|
|000006b0| 07 ef 32 36 0d 04 42 0d | fb 20 31 34 33 3a fb 20 |..26..B.|. 143:. |
|000006c0| 30 0d 04 4c 22 f1 8a 32 | 2c 31 31 29 22 41 6d 70 |0..L"..2|,11)"Amp|
|000006d0| 6c 69 74 75 64 65 20 41 | 3a 22 3b 69 6e 70 75 74 |litude A|:";input|
|000006e0| 28 30 29 0d 04 56 22 f1 | 8a 32 2c 31 32 29 22 46 |(0)..V".|.2,12)"F|
|000006f0| 72 65 71 75 65 6e 63 79 | 20 41 3a 22 3b 69 6e 70 |requency| A:";inp|
|00000700| 75 74 28 32 29 0d 04 60 | 22 f1 8a 32 2c 31 34 29 |ut(2)..`|"..2,14)|
|00000710| 22 41 6d 70 6c 69 74 75 | 64 65 20 42 3a 22 3b 69 |"Amplitu|de B:";i|
|00000720| 6e 70 75 74 28 31 29 0d | 04 6a 22 f1 8a 32 2c 31 |nput(1).|.j"..2,1|
|00000730| 35 29 22 46 72 65 71 75 | 65 6e 63 79 20 42 3a 22 |5)"Frequ|ency B:"|
|00000740| 3b 69 6e 70 75 74 28 33 | 29 0d 04 74 1a f1 8a 32 |;input(3|)..t...2|
|00000750| 2c 31 37 29 22 41 72 63 | 3a 22 3b 69 6e 70 75 74 |,17)"Arc|:";input|
|00000760| 28 34 29 0d 04 7e 1f f1 | 8a 32 2c 31 38 29 22 52 |(4)..~..|.2,18)"R|
|00000770| 6f 74 61 74 69 6f 6e 3a | 22 3b 69 6e 70 75 74 28 |otation:|";input(|
|00000780| 35 29 0d 04 88 1b f1 8a | 32 2c 32 30 29 22 53 74 |5)......|2,20)"St|
|00000790| 65 70 3a 22 3b 69 6e 70 | 75 74 28 36 29 0d 04 92 |ep:";inp|ut(6)...|
|000007a0| 12 f1 8a 37 2c 32 32 29 | 22 53 54 41 52 54 22 0d |...7,22)|"START".|
|000007b0| 04 9c 10 f1 8a 37 34 2c | 30 29 3b 89 28 36 29 0d |.....74,|0);.(6).|
|000007c0| 04 a6 14 f1 8a 37 34 2c | 31 29 3b 22 20 51 55 49 |.....74,|1);" QUI|
|000007d0| 54 20 22 0d 04 b0 10 f1 | 8a 37 34 2c 32 29 3b 89 |T ".....|.74,2);.|
|000007e0| 28 36 29 0d 04 ba 08 e6 | 30 2c 30 0d 04 c4 24 c8 |(6).....|0,0...$.|
|000007f0| 93 20 c8 90 20 31 32 38 | 30 2d 35 2a 31 36 2d 38 |. .. 128|0-5*16-8|
|00000800| 2c 31 30 32 34 2d 31 36 | 2c 35 2a 31 36 2c 32 0d |,1024-16|,5*16,2.|
|00000810| 04 ce 29 c8 93 20 c8 90 | 20 31 32 38 30 2d 35 2a |..).. ..| 1280-5*|
|00000820| 31 36 2d 38 2c 31 30 32 | 34 2d 31 36 2d 33 32 2a |16-8,102|4-16-32*|
|00000830| 32 2c 34 2c 33 32 2a 32 | 0d 04 d8 29 c8 93 20 c8 |2,4,32*2|...).. .|
|00000840| 90 20 31 32 38 30 2d 35 | 2a 31 36 2d 38 2c 31 30 |. 1280-5|*16-8,10|
|00000850| 32 34 2d 31 36 2d 33 32 | 2a 32 2c 35 2a 31 36 2c |24-16-32|*2,5*16,|
|00000860| 32 0d 04 e2 25 c8 93 20 | c8 90 20 31 32 38 30 2d |2...%.. |.. 1280-|
|00000870| 31 32 2c 31 30 32 34 2d | 31 36 2d 33 32 2a 32 2c |12,1024-|16-32*2,|
|00000880| 34 2c 33 32 2a 32 0d 04 | ec 0c fb 31 32 38 3a fb |4,32*2..|...128:.|
|00000890| 31 35 0d 04 f6 09 e6 30 | 2c 31 34 0d 05 00 10 c8 |15.....0|,14.....|
|000008a0| 97 20 b8 20 32 33 32 2c | 33 30 34 0d 05 0a 0e 2a |. . 232,|304....*|
|000008b0| 50 4f 49 4e 54 45 52 20 | 31 0d 05 14 05 e1 0d 05 |POINTER |1.......|
|000008c0| 1e 04 0d 05 28 0b dd f2 | 69 6e 70 75 74 0d 05 32 |....(...|input..2|
|000008d0| 11 69 6e 70 75 74 28 30 | 29 3d 61 6d 70 41 0d 05 |.input(0|)=ampA..|
|000008e0| 3c 11 69 6e 70 75 74 28 | 31 29 3d 61 6d 70 42 0d |<.input(|1)=ampB.|
|000008f0| 05 46 12 69 6e 70 75 74 | 28 32 29 3d 66 72 65 71 |.F.input|(2)=freq|
|00000900| 41 0d 05 50 12 69 6e 70 | 75 74 28 33 29 3d 66 72 |A..P.inp|ut(3)=fr|
|00000910| 65 71 42 0d 05 5a 1a 69 | 6e 70 75 74 28 34 29 3d |eqB..Z.i|nput(4)=|
|00000920| 63 69 72 63 6c 65 2b 72 | 6f 74 61 74 65 0d 05 64 |circle+r|otate..d|
|00000930| 13 69 6e 70 75 74 28 35 | 29 3d 72 6f 74 61 74 65 |.input(5|)=rotate|
|00000940| 0d 05 6e 11 69 6e 70 75 | 74 28 36 29 3d 73 74 65 |..n.inpu|t(6)=ste|
|00000950| 70 0d 05 78 0c f2 64 69 | 73 70 6c 61 79 0d 05 82 |p..x..di|splay...|
|00000960| 0e 66 69 6e 69 73 68 65 | 64 3d a3 0d 05 8c 05 f5 |.finishe|d=......|
|00000970| 0d 05 96 12 c8 97 20 78 | 2c 79 2c 62 75 74 74 6f |...... x|,y,butto|
|00000980| 6e 73 0d 05 a0 10 c8 95 | 20 62 75 74 74 6f 6e 73 |ns......| buttons|
|00000990| 3d 30 0d 05 aa 0c f2 61 | 6e 69 6d 61 74 65 0d 05 |=0.....a|nimate..|
|000009a0| b4 12 c8 97 20 78 2c 79 | 2c 62 75 74 74 6f 6e 73 |.... x,y|,buttons|
|000009b0| 0d 05 be 1b e7 62 75 74 | 74 6f 6e 73 3d 31 8c 20 |.....but|tons=1. |
|000009c0| 2a 48 41 52 44 43 4f 50 | 59 46 58 0d 05 c8 05 ce |*HARDCOP|YFX.....|
|000009d0| 0d 05 d2 04 0d 05 dc 0c | 78 3d 78 20 81 20 31 36 |........|x=x . 16|
|000009e0| 0d 05 e6 0c 79 3d 79 20 | 81 20 33 32 0d 05 f0 2b |....y=y |. 32...+|
|000009f0| e7 20 78 3e 37 34 20 80 | 20 78 3c 37 39 20 80 20 |. x>74 .| x<79 . |
|00000a00| 79 3d 33 30 20 8c 20 65 | 6e 64 3d b9 3a 66 69 6e |y=30 . e|nd=.:fin|
|00000a10| 69 73 68 65 64 3d b9 0d | 05 fa 12 e7 20 78 3e 31 |ished=..|.... x>1|
|00000a20| 20 80 20 78 3c 31 38 20 | 8c 0d 06 04 0a c8 8e 20 | . x<18 |....... |
|00000a30| 79 20 ca 0d 06 0e 14 c9 | 20 32 30 20 3a 20 f2 67 |y ......| 20 : .g|
|00000a40| 65 74 28 30 2c 33 29 0d | 06 18 14 c9 20 31 39 20 |et(0,3).|.... 19 |
|00000a50| 3a 20 f2 67 65 74 28 32 | 2c 33 29 0d 06 22 14 c9 |: .get(2|,3).."..|
|00000a60| 20 31 37 20 3a 20 f2 67 | 65 74 28 31 2c 33 29 0d | 17 : .g|et(1,3).|
|00000a70| 06 2c 14 c9 20 31 36 20 | 3a 20 f2 67 65 74 28 33 |.,.. 16 |: .get(3|
|00000a80| 2c 33 29 0d 06 36 15 c9 | 20 31 34 20 3a 20 f2 67 |,3)..6..| 14 : .g|
|00000a90| 65 74 28 34 2c 31 31 29 | 0d 06 40 14 c9 20 31 33 |et(4,11)|..@.. 13|
|00000aa0| 20 3a 20 f2 67 65 74 28 | 35 2c 36 29 0d 06 4a 15 | : .get(|5,6)..J.|
|00000ab0| c9 20 31 31 20 3a 20 f2 | 67 65 74 28 36 2c 31 30 |. 11 : .|get(6,10|
|00000ac0| 29 0d 06 54 14 c9 20 39 | 20 3a 20 66 69 6e 69 73 |)..T.. 9| : finis|
|00000ad0| 68 65 64 3d b9 0d 06 5e | 05 cb 0d 06 68 05 cd 0d |hed=...^|....h...|
|00000ae0| 06 72 0e fd 20 66 69 6e | 69 73 68 65 64 0d 06 7c |.r.. fin|ished..||
|00000af0| 11 61 6d 70 41 3d 69 6e | 70 75 74 28 30 29 0d 06 |.ampA=in|put(0)..|
|00000b00| 86 11 61 6d 70 42 3d 69 | 6e 70 75 74 28 31 29 0d |..ampB=i|nput(1).|
|00000b10| 06 90 12 66 72 65 71 41 | 3d 69 6e 70 75 74 28 32 |...freqA|=input(2|
|00000b20| 29 0d 06 9a 12 66 72 65 | 71 42 3d 69 6e 70 75 74 |)....fre|qB=input|
|00000b30| 28 33 29 0d 06 a4 1c 63 | 69 72 63 6c 65 3d 69 6e |(3)....c|ircle=in|
|00000b40| 70 75 74 28 34 29 2d 69 | 6e 70 75 74 28 35 29 0d |put(4)-i|nput(5).|
|00000b50| 06 ae 13 72 6f 74 61 74 | 65 3d 69 6e 70 75 74 28 |...rotat|e=input(|
|00000b60| 35 29 0d 06 b8 11 73 74 | 65 70 3d 69 6e 70 75 74 |5)....st|ep=input|
|00000b70| 28 36 29 0d 06 c2 0e 2a | 50 4f 49 4e 54 45 52 20 |(6)....*|POINTER |
|00000b80| 30 0d 06 cc 19 ef 20 32 | 34 2c 33 31 30 3b 30 3b |0..... 2|4,310;0;|
|00000b90| 31 32 37 39 3b 31 30 32 | 33 3b 0d 06 d6 05 da 0d |1279;102|3;......|
|00000ba0| 06 e0 05 e1 0d 06 ea 05 | 20 0d 06 f4 11 dd f2 67 |........| ......g|
|00000bb0| 65 74 28 69 6e 2c 6c 65 | 6e 29 0d 06 fe 0b 2a 46 |et(in,le|n)....*F|
|00000bc0| 58 31 34 2c 36 0d 07 08 | 0e 2a 50 4f 49 4e 54 45 |X14,6...|.*POINTE|
|00000bd0| 52 20 30 0d 07 12 13 f1 | 8a 31 37 2d 6c 65 6e 2c |R 0.....|.17-len,|
|00000be0| 33 31 2d 79 29 3b 0d 07 | 1c 0b fb 31 3a fb 31 32 |31-y);..|...1:.12|
|00000bf0| 38 0d 07 26 26 f1 89 28 | 6c 65 6e 29 3b 8a 31 37 |8..&&..(|len);.17|
|00000c00| 2d 6c 65 6e 2c 33 31 2d | 79 29 3b 22 22 69 6e 70 |-len,31-|y);""inp|
|00000c10| 75 74 28 69 6e 29 3b 0d | 07 30 13 f1 8a 31 37 2d |ut(in);.|.0...17-|
|00000c20| 6c 65 6e 2c 33 31 2d 79 | 29 3b 0d 07 3a 07 fb 31 |len,31-y|);..:..1|
|00000c30| 35 0d 07 44 05 f5 0d 07 | 4e 0c c8 97 20 58 2c 59 |5..D....|N... X,Y|
|00000c40| 2c 42 0d 07 58 09 fd 20 | 42 3d 30 0d 07 62 0c 72 |,B..X.. |B=0..b.r|
|00000c50| 65 74 75 72 6e 3d a3 0d | 07 6c 09 71 24 3d 22 22 |eturn=..|.l.q$=""|
|00000c60| 0d 07 76 05 f5 0d 07 80 | 0a 71 3d a6 28 30 29 0d |..v.....|.q=.(0).|
|00000c70| 07 8a 2b c8 95 20 28 71 | 3c 34 38 20 84 20 71 3e |..+.. (q|<48 . q>|
|00000c80| 35 37 29 20 80 20 71 3c | 3e 31 33 20 80 20 71 3c |57) . q<|>13 . q<|
|00000c90| 3e 31 32 37 20 80 20 42 | 3d 30 0d 07 94 0a 71 3d |>127 . B|=0....q=|
|00000ca0| a6 28 30 29 0d 07 9e 0c | c8 97 20 58 2c 59 2c 42 |.(0)....|.. X,Y,B|
|00000cb0| 0d 07 a8 05 ce 0d 07 b2 | 1c e7 20 71 3d 31 33 20 |........|.. q=13 |
|00000cc0| 84 20 42 3c 3e 30 20 8c | 20 72 65 74 75 72 6e 3d |. B<>0 .| return=|
|00000cd0| b9 0d 07 bc 2b e7 20 71 | 3d 31 32 37 20 80 20 a9 |....+. q|=127 . .|
|00000ce0| 28 71 24 29 3e 30 20 8c | 20 71 24 3d c0 71 24 2c |(q$)>0 .| q$=.q$,|
|00000cf0| a9 28 71 24 29 2d 31 29 | 3a ef 20 71 0d 07 c6 2f |.(q$)-1)|:. q.../|
|00000d00| e7 20 71 3e 34 37 20 80 | 20 71 3c 35 38 20 80 20 |. q>47 .| q<58 . |
|00000d10| a9 28 71 24 29 3c 3e 6c | 65 6e 20 8c 20 71 24 3d |.(q$)<>l|en . q$=|
|00000d20| 71 24 2b bd 28 71 29 3a | ef 20 71 0d 07 d0 0c fd |q$+.(q):|. q.....|
|00000d30| 20 72 65 74 75 72 6e 0d | 07 da 1e e7 20 71 24 3c | return.|.... q$<|
|00000d40| 3e 22 22 20 8c 20 69 6e | 70 75 74 28 69 6e 29 3d |>"" . in|put(in)=|
|00000d50| a0 28 71 24 29 0d 07 e4 | 05 f5 0d 07 ee 0c c8 97 |.(q$)...|........|
|00000d60| 20 58 2c 59 2c 42 0d 07 | f8 09 fd 20 42 3d 30 0d | X,Y,B..|... B=0.|
|00000d70| 08 02 0b fb 30 3a fb 31 | 34 33 0d 08 0c 13 f1 8a |....0:.1|43......|
|00000d80| 31 37 2d 6c 65 6e 2c 33 | 31 2d 79 29 3b 0d 08 16 |17-len,3|1-y);...|
|00000d90| 26 f1 89 28 6c 65 6e 29 | 3b 8a 31 37 2d 6c 65 6e |&..(len)|;.17-len|
|00000da0| 2c 33 31 2d 79 29 3b 22 | 22 69 6e 70 75 74 28 69 |,31-y);"|"input(i|
|00000db0| 6e 29 3b 0d 08 20 0e 2a | 50 4f 49 4e 54 45 52 20 |n);.. .*|POINTER |
|00000dc0| 31 0d 08 2a 0b 2a 46 58 | 31 33 2c 36 0d 08 34 05 |1..*.*FX|13,6..4.|
|00000dd0| e1 0d 08 3e 04 0d 08 48 | 0a dd f2 64 72 61 77 0d |...>...H|...draw.|
|00000de0| 08 52 17 e7 20 65 72 72 | 6f 72 20 8c 20 65 72 72 |.R.. err|or . err|
|00000df0| 6f 72 3d a3 3a e1 0d 08 | 5c 0d 63 6f 6c 6f 75 72 |or=.:...|\.colour|
|00000e00| 3d 31 34 0d 08 66 0b 63 | 64 69 72 3d 2d 31 0d 08 |=14..f.c|dir=-1..|
|00000e10| 70 2a e3 20 6f 66 66 73 | 65 74 3d 2d 63 69 72 63 |p*. offs|et=-circ|
|00000e20| 6c 65 2f 32 20 b8 20 63 | 69 72 63 6c 65 2f 32 20 |le/2 . c|ircle/2 |
|00000e30| 88 20 72 6f 74 61 74 65 | 0d 08 7a 1e e3 20 76 61 |. rotate|..z.. va|
|00000e40| 72 69 61 74 65 3d 30 20 | b8 20 31 35 31 32 30 20 |riate=0 |. 15120 |
|00000e50| 88 20 73 74 65 70 0d 08 | 84 21 73 69 6e 3d 33 36 |. step..|.!sin=36|
|00000e60| 30 2a 28 66 72 65 71 41 | 2a 76 61 72 69 61 74 65 |0*(freqA|*variate|
|00000e70| 2f 31 35 31 32 30 29 0d | 08 8e 24 63 6f 73 3d 33 |/15120).|..$cos=3|
|00000e80| 36 30 2a 28 66 72 65 71 | 42 2a 76 61 72 69 61 74 |60*(freq|B*variat|
|00000e90| 65 2f 31 35 31 32 30 29 | 2b 39 30 0d 08 98 16 78 |e/15120)|+90....x|
|00000ea0| 3d a4 73 77 69 6e 67 28 | 61 6d 70 41 2c 73 69 6e |=.swing(|ampA,sin|
|00000eb0| 29 0d 08 a2 16 79 3d a4 | 73 77 69 6e 67 28 61 6d |)....y=.|swing(am|
|00000ec0| 70 42 2c 63 6f 73 29 0d | 08 ac 15 6c 65 6e 67 74 |pB,cos).|...lengt|
|00000ed0| 68 3d b6 28 78 5e 32 2b | 79 5e 32 29 0d 08 b6 18 |h=.(x^2+|y^2)....|
|00000ee0| 61 6e 67 6c 65 3d 9d 28 | 98 28 79 2f 6c 65 6e 67 |angle=.(|.(y/leng|
|00000ef0| 74 68 29 29 0d 08 c0 19 | 61 6e 67 6c 65 31 3d 9d |th))....|angle1=.|
|00000f00| 28 95 28 78 2f 6c 65 6e | 67 74 68 29 29 0d 08 ca |(.(x/len|gth))...|
|00000f10| 24 e7 20 61 6e 67 6c 65 | 31 2d 39 30 3e 30 20 8c |$. angle|1-90>0 .|
|00000f20| 20 61 6e 67 6c 65 3d 2d | 61 6e 67 6c 65 2d 31 38 | angle=-|angle-18|
|00000f30| 30 0d 08 d4 1c 63 6f 73 | 3d 33 36 30 2b 6f 66 66 |0....cos|=360+off|
|00000f40| 73 65 74 2b 61 6e 67 6c | 65 2b 31 38 30 0d 08 de |set+angl|e+180...|
|00000f50| 1b 73 69 6e 3d 33 36 30 | 2b 6f 66 66 73 65 74 2b |.sin=360|+offset+|
|00000f60| 61 6e 67 6c 65 2b 39 30 | 0d 08 e8 17 78 31 3d 6c |angle+90|....x1=l|
|00000f70| 65 6e 67 74 68 2a a4 73 | 69 6e 28 63 6f 73 29 0d |ength*.s|in(cos).|
|00000f80| 08 f2 17 79 31 3d 6c 65 | 6e 67 74 68 2a a4 73 69 |...y1=le|ngth*.si|
|00000f90| 6e 28 73 69 6e 29 0d 08 | fc 37 e7 20 76 61 72 69 |n(sin)..|.7. vari|
|00000fa0| 61 74 65 3d 30 20 8c 20 | ec 20 6d 69 64 78 2b 78 |ate=0 . |. midx+x|
|00000fb0| 31 2c 6d 69 64 79 2b 79 | 31 20 8b 20 df 20 6d 69 |1,midy+y|1 . . mi|
|00000fc0| 64 78 2b 78 31 2c 6d 69 | 64 79 2b 79 31 0d 09 06 |dx+x1,mi|dy+y1...|
|00000fd0| 0d ed 20 76 61 72 69 61 | 74 65 0d 09 10 10 63 6f |.. varia|te....co|
|00000fe0| 6c 6f 75 72 2b 3d 63 64 | 69 72 0d 09 1a 27 e7 20 |lour+=cd|ir...'. |
|00000ff0| 63 6f 6c 6f 75 72 3c 32 | 20 84 20 63 6f 6c 6f 75 |colour<2| . colou|
|00001000| 72 3e 31 33 20 8c 20 63 | 64 69 72 3d 2d 63 64 69 |r>13 . c|dir=-cdi|
|00001010| 72 0d 09 24 0d e6 30 2c | 63 6f 6c 6f 75 72 0d 09 |r..$..0,|colour..|
|00001020| 2e 0c ed 20 6f 66 66 73 | 65 74 0d 09 38 05 e1 0d |... offs|et..8...|
|00001030| 09 42 04 0d 09 4c 16 dd | a4 73 77 69 6e 67 28 61 |.B...L..|.swing(a|
|00001040| 6d 70 2c 61 6e 67 6c 65 | 29 0d 09 56 25 3d 61 6d |mp,angle|)..V%=am|
|00001050| 70 2a 28 a4 73 69 6e 28 | 61 6e 67 6c 65 29 2d a4 |p*(.sin(|angle)-.|
|00001060| 73 69 6e 28 61 6e 67 6c | 65 2b 39 30 29 29 0d 09 |sin(angl|e+90))..|
|00001070| 60 04 0d 09 6a 0f dd a4 | 73 69 6e 28 77 68 61 74 |`...j...|sin(what|
|00001080| 29 0d 09 74 1a 3d 73 69 | 6e 28 77 68 61 74 2a 6d |)..t.=si|n(what*m|
|00001090| 75 6c 74 20 83 20 73 69 | 7a 65 29 0d ff          |ult . si|ze)..   |
+--------+-------------------------+-------------------------+--------+--------+